\mmenter\myst4.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
fclose
enterpage
enterpage
open \mmenter\myst4.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
karaoke14
playvideo ("\mmenter\karaoke.avi"),("
ZstrOpen, the File
theFile
" &&
&& "type AVIVideo alias video1 style popup
" && sysClientHandle
tbkMCIchk(
"",1,1)
tbkMCIPositionWindow(
Z,"","")
0 wait","",1,1)
X"close
","",1,1)
enterpage
leavepage
enterpage
playvideo
\mmenter\karaoke.avi
rectangle
start
leavepage
Here is an example of how PC Karaoke can liven up a party or any other get together:
Give PC Karaoke a try sometime!
:PHYSSIZE
rectangle
myst5
"pic1"
tbkMCIchk ("
\mmenter\myst5.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
fclose
enterpage
enterpage
open \mmenter\myst5.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
myst2
"pic1"
tbkMCIchk ("
\mmenter\myst2.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
fclose
enterpage
enterpage
open \mmenter\myst2.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
myst3
"pic1"
tbkMCIchk ("
\mmenter\myst3.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
fclose
enterpage
enterpage
open \mmenter\myst3.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
myst9
"pic1"
enterpage
enterpage
:PHYSSIZE
myst12
myst16
cine1
black1
myst6
"pic1"
tbkMCIchk ("
\mmenter\myst6.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
fclose
enterpage
enterpage
open \mmenter\myst6.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
myst7
"pic1"
enterpage
enterpage
:PHYSSIZE
"pic1"
tbkMCIchk ("
\mmenter\lab1.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
gclose
"lab2"
"lab3"
"lab11"
"lab12"
"lab16"
enterpage
enterpage
open \mmenter\lab1.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
black
black
black
lab11
black
lab12
:PHYSSIZE
mystend
enterpage
enterpage
start
black
ecial
myst3
karaoke13
myst5
myst7
myst9
myststart
karaokestart
mystend
cine3
cine2
:PHYSSIZE
ListMaker
Award List
SetSpecialCursor("Special2")
"cine3"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cine3
Gallery
Find Word
History
Options
Overview
Choose the Gallery button...
SetSpecialCursor("Special2")
"empty"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
Click here to end the demo.fessor MULTIMEDIA
SetSpecialCursor("Special2")
"empty"
eatclicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatclicks
mpty"
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatClicks
cover
pfirst
15,0,9585,7200
plast
15,0,9585,7200
4665,3585,4875,3780
black2
Click here to return to Professor MULTIMEDIA
"cinemaniastart"
buttonup
buttonup
cinemaniastart
enterpage
enterpage
black2
karaoke3
cine2
cine6
One moment please...
:PHYSSIZE
lab12
lab16
4machine
Zspeed
"text1"
"pic1"
"pic2"
"border"
"voice"
-10740,5460,75,5910
-3450,1740,510,6645
4395,6330,5115,7170
pfirst
-10740,5460,75,5910
plast
-1230,5475,9585,5925
alter
-3450,1740,510,6645
480,1740,4440,6645
tbkMCIchk ("
\mmenter\hellcab1.wav type waveaudio alias wavefile","",1,1)
Kplay
0 hold","",1,1)
yeildApp ()
close
enterpage
leavepage
enterpage
text1
border
voice
border
voice
border
border
pfirst
border
plast
alter
border
pfirst
plast
alter
text1
voice
open \mmenter\hellcab1.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 hold
tbkMCIchk
yeildApp
speed
machine
leavepage
close wavefile
tbkMCIchk
karaoke1
karaoke10
myst8
cinemaniastart
myst17
myst1
4machine
Zspeed
"pic1"
1005,1050,8685,6060
tbkMCIchk ("
\mmenter\myst1.wav type waveaudio alias wavefile","",1,1)
Iplay
0 wait","",1,1)
hclose
"myst2"
"myst3"
"myst4"
"myst5"
"myst6"
"myst7"
"myst8"
"myst9"
"mystend"
enterpage
enterpage
open \mmenter\myst1.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
black
myst2
black
myst3
black
myst4
black
myst5
black
myst6
black
myst7
black
mystend
speed
machine
:PHYSSIZE
myst1
karaoke11
myst10
myst18
"pic1"
tbkMCIchk ("
\mmenter\lab3.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
gclose
enterpage
enterpage
open \mmenter\lab3.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
blank
labstart
myst4
empty
karaoke9
karaoke14
blank
karaoke8
myststart
"cover"
4695,3660,4830,3810
enterpage
enterpage
cover
cover
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"myst1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
myst1
speed
machine
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"myst1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
myst1
speed
machine
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"myst1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
myst1
speed
machine
:PHYSSIZE
:PHYSSIZE
text1
plast
5415,1665,8910,4245
pfirst
5415,1665,8910,1665
Journey now to an island world surrealistically tinged with mystery... journey now to an adventure game called Myst.
text1
pfirst
5415,1665,8910,1665
plast
5415,1665,8910,4245
Myst, developed by Cyan and distributed by Broderbund, is a chilling tale of intrigue and injustice. Only your wits and imagination will serve to stay the course and unlock the ancient betrayal of ages past.
text1
pfirst
1485,1665,5310,1665
plast
1485,1665,5310,5715
Click on a picture to see a self-running demo.o.
cover
plast
4695,3660,4830,3810
pfirst
-45,-240,9600,7185
SetSpecialCursor("Special2")
"empty"
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatClicks
-45,-240,9600,7185
cine5
:PHYSSIZE
scarlett
SetSpecialCursor("Special2")
"cine6"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cine6
SetSpecialCursor("Special2")
playvideo2("\mmenter\t019073b.avi"),("scarlett")
PlayVideo2 theFile,thePlace
ZstrOpen
" &&
. && "type AVIVideo alias video1 style popup
" && sysClientHandle
tbkMCIchk(
e,"",1,1)
tbkMCIPositionWindow(
0 wait","",1,1)
Y"close
","",1,1)
eatClicks()
mouseLeave
mouseEnter
buttonup
PlayVideo2
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
playvideo2
\mmenter\t019073b.avi
scarlett
PlayVideo2
type AVIVideo alias video1 style popup parent
tbkMCIchk
tbkMCIPositionWindow
play video1 from 0 wait
tbkMCIchk
close video1
tbkMCIchk
eatClicks
video1
strOpen
thePlace
theFile
Button
ListMaker
Award List
Gallery
Find Word
History
Options
Overview
Choose the Play button or the Music button to continue.
cine6
:PHYSSIZE
SetSpecialCursor("Special2")
playwave("\mmenter\gonewind.
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
vplaywave
\mmenter\gonewind.wav
ListMaker
Award List
Gallery
Find Word
History
Options
Overview
SetSpecialCursor("Special2")
"empty"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
Click here to end the demo.fessor MULTIMEDIA
Try clicking here.
SetSpecialCursor("Special2")
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
start
cine5
karaoke4
black1
start
black
myst2
myst6
lab11
@.....N
karaokestart
"cover"
4695,3660,4830,3810
tbkMCIchk ("
\mmenter\8id21.wav type waveaudio alias wavefile","",1,1)
Hplay
0 hold","",1,1)
yeildApp()
close
enterpage
leavepage
enterpage
cover
cover
open \mmenter\8id21.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 hold
tbkMCIchk
yeildApp
leavepage
close wavefile
tbkMCIchk
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"karaoke1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
karaoke1
speed
machine
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"karaoke1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
karaoke1
speed
machine
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"karaoke1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
karaoke1
speed
machine
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"karaoke1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
karaoke1
speed
machine
<':PHYSSIZE
text1
'plast
5415,1665,8910,4245
'pfirst
5415,1665,8910,1665
PC Karaoke from Sirius Publishing gives you the ability to become an instant hit!
text1
(pfirst
5415,1665,8910,1665
(plast
5415,1665,8910,4245
With PC Karaoke, you can sing along with your favorite songs. The lyrics are displayed in time on your computer monitor.r television
text1
*plast
5415,1665,8910,4245
6*pfirst
5415,1665,8910,1665
In this demo, you will see an actual song from the PC Karaoke program. Sing along!
text1
H+.+pfirst
1485,1665,5310,1665
V+plast
1485,1665,5310,5715
Click on a picture to run a demo.o.
cover
,plast
-45,-240,9600,7185
H,pfirst
4695,3660,4830,3810
SetSpecialCursor("Special2")
"empty"
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatClicks
-45,-240,9600,7185
karaoke2
lab10
"pic1"
tbkMCIchk ("
\mmenter\lab2.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
gclose
enterpage
enterpage
open \mmenter\lab2.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
lab11
"pic1"
tbkMCIchk ("
\mmenter\lab4.wav type waveaudio alias wavefile","",1,1)
Hplay
0 wait","",1,1)
gclose
enterpage
enterpage
open \mmenter\lab4.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
:PHYSSIZE
lab12
"pic1"
"blank"
enterpage
enterpage
blank
start
:PHYSSIZE
karaoke2
tbkMCIchk ("
\mmenter\pretty.wav type waveaudio alias wavefile","",1,1)
Iplay
16346 wait","",1,1)
"karaoke3"
enterpage
leavepage
enterpage
open \mmenter\pretty.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 to 16346 wait
tbkMCIchk
karaoke3
leavepage
:PHYSSIZE
plast
6165,510,7860,1950
pfirst
915,480,2610,1920
karaoke13
(&\a$
enterpage
enterpage
:PHYSSIZE
cinemaniastart
"cover"
4695,3660,4830,3810
enterpage
enterpage
cover
cover
:PHYSSIZE
text1
plast
810,1680,8025,6105
pfirst
810,6105,8025,6105
It contains information on over 24,000 movies -- from big budget extravaganzas to obscure art films. Movie buffs and trivia enthusiasts alike will be entertained by Cinemania '94..
text1
pfirst
810,6105,8025,6105
plast
810,1680,8025,6105
Microsoft's Cinemania '94, is the fast, fun way to explore the magic of movies.es.vies.
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4665,3585,4875,3780
plast
15,0,9585,7200
alter
"black2"
cine1
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
black2
cine1
speed
machine
:PHYSSIZE
text1
pfirst
1485,1665,5310,1665
plast
1485,1665,5310,5715
Click on the picture to run the demo.
SetSpecialCursor("Special2")
"empty"
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatClicks
cover
pfirst
4665,3585,4875,3780
plast
15,0,9585,7200
15,0,9585,7200
15,0,9585,7200
cine4
:PHYSSIZE
ListMaker
Award List
Gallery
Find Word
History
Options
Overview
SetSpecialCursor("Special2")
"cine5"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cine5
SetSpecialCursor("Special2")
playwave("\mmenter\rhett.
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
vplaywave
\mmenter\rhett.wav
Choose the Film Clips button to continue.
Try clicking here.
SetSpecialCursor("Special2")
"empty"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
Click here to end the demo.fessor MULTIMEDIA
SetSpecialCursor("Special2")
"empty"
eatclicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatclicks
D+o s
x,o G
H.o s
(/o G
v2o G
F4o s
&5o G
~6o G
*8o G
R;o s
2<o G
v=o G
V>o s
6?o G
^Bo s
HC.Cplast
480,1740,4440,6645
XCpfirst
-3450,1740,510,6645
dF:PHYSSIZE
J:PHYSSIZE
voice
vL:PHYSSIZE
SetSpecialCursor("Special2")
"vo1"
"vo2"
tbkMCIchk ("close wavefile","",1,1)
\mmenter\hellcab1.
( type waveaudio alias
Xplay
0 hold","",1,1)
mouseLeave
mouseEnter
buttondown
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttondown
buttonup
close wavefile
tbkMCIchk
open \mmenter\hellcab1.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 hold
tbkMCIchk
Q:PHYSSIZE
~QVQ{Q
Repeat
cine1
:PHYSSIZE
black1
"cine2"
enterpage
enterpage
cine2
black1
cine2
:PHYSSIZE
ListMaker
Award List
SetSpecialCursor("Special2")
"cine3"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cine3
Gallery
Find Word
History
Options
Overview
Choose the Gallery button...
SetSpecialCursor("Special2")
"empty"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
Click here to end the demo.fessor MULTIMEDIA
cine3
:PHYSSIZE
SetSpecialCursor("Special2")
"cine4"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cine4
ListMaker
Award List
Gallery
Find Word
History
Options
Overview
Now let's take a look at Movie Stills.
cine6
:PHYSSIZE
SetSpecialCursor("Special2")
playwave("\mmenter\gonewind.
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
vplaywave
\mmenter\gonewind.wav
ListMaker
Award List
Gallery
Find Word
History
Options
Overview
SetSpecialCursor("Special2")
"empty"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
Click here to end the demo.fessor MULTIMEDIA
Try clicking here.
SetSpecialCursor("Special2")
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
start
SetSpecialCursor("Special2")
"empty"
eatclicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
eatclicks
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
empty
start
Click here to end the demo.fessor MULTIMEDIA
Times New Roman
Professor MULTIMEDIA
Arial
Arial
Arial
EaP|
:PRINTLAYOUT
mes New Roman
s Serif
Times New Roman
Times New Roman
Arial
System
Arial
Arial
:PHYSSIZE
SetSpecialCursor("Special2")
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
eatClicks
SetSpecialCursor("Special2")
gotomain
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
kgotomain
eatClicks
SetSpecialCursor("Special2")
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
eatClicks
SetSpecialCursor("Special2")
eatClicks()
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
eatClicks
Multimedia in Entertainment
-- Professor MULTIMEDIA
Version 1.00 *
-- Copyright (c) Individual Software Inc. 1992-1993
All Rights Reserved *
-- This document
cproprietary
confidential information.
-- parts
the computer program
embodies may be
way copied, duplicated, reproduced, translated
a different
-- programming language,
distributed
person, company,
-- corporation without
prior written consent
-- Script
bring
ToolBook screen
full
EnterBook
-- handler.
Will work
5resolution.
-- Use
each
"PMM.SBK"
Sysbooks
"TBKMM.
initbook
resources
c"&Utility"
e"Edit &Page
;Object
e"&Get Bounds
Selection"
c"&Style"
e"Arial 14 Field"
EditPageScript
EditBookScript
EditObjectScript
<> ""
GetBoundsOfSelection
ZoldSelect
-5,-5
-2,-2
"temp"
split_groups objlist
Zretval
theobj
Arial14Field
changeFieldFormat "
%",14,
newFace, newSize,
ZtheObj
initBook
-- these functions
allocating global memory
linkDLL "kernel"
WORD GlobalAlloc(
,DWORD)
POINTER GlobalLock(
2Unlock(
@Free(
8 GetMyFlags = GetWinFlags()
X"mycursor.dll"
c SetSpecialCursor(STRING)
GetSpecialCursor()
4curstep
4clickable
4nonclickable
-- need
1 -- Arrow
buttoncolor
0,75.3125,0
TBKWIN.DLL"
INT xUnitsFromPixels(
yUnitsFromPixels(
user"
IPeekMessage(
GetSystemMetrics(
width
height
capHeight
getSystemMetrics(4)
resize borders
bwidth
bheight
-- Open
maximum
-1*
J,-1*
clientarea_y
17)+28
clientarea_x
16)+8
-- Convert pixels
units.
clientarea_y_units
sysMagnification,
clientarea_x_units
-- Define
GetProcessor
config
k2) <>0
retvalue
4machine
-- General purpose
4-wide stuff
gotomain
8"\mainmenu\
.tbk"
-- PlayWave
-- Plays
passed wave file
-- Waits
finish
4returning
-- opens
closes
waveaudio device
-- will abort
ferror message
-- already
theFile
ZstrOpen
" &&
&& "type
valias wavefile"
tbkMCIchk(
>,"",1,1)
"play
0 wait","",1,1)
G,"",1,1)
PlayMidi
" &&
&& "
sequencer
midifile"
,"",1,1)
2,"",1,1)
} a Video
-- Need
video (
PlayVideo
,thePlace
" &&
&& "
AVIVideo
video1 style popup
" && sysClientHandle
,"",1,1)
tbkMCIPositionWindow(
","",1,1)
eatClicks()
-- PlayAnimation:
animation (
{which holds
place (
" &&
&& "
anim1
,"",1,1)
c:\toolbook\flow.fli
","",1,1)
","",1,1)
-- Alter:
one does
{animations
alter obj,slice
ZCx1,Cx2,Cy1,Cy2,Gx1,Gx2,Gy1,Gy2
ZIx1,Ix2,Iy1,Iy2
going
Plast
coming
Pfirst
newBounds
yieldApp()
-- default
-- locks
-- unlocks
-- If use clicks
Mlocation
objectFromPoint(
-- ignore
xreleased over
UN-COMMENT THIS WHEN READY
Field
enterbook
changeFieldFormat
initBook
EditBookScript
resources
author
reader
EditObjectScript
gotomain
PlayWave
EditPageScript
PlayMidi
PlayVideo
PlayAnimation
GetBoundsOfSelection
alter
leavepage
enterpage
Arial14Field
mouseleave
mouseenter
groups
split_groups
GetProcessor
enterbook
PMM.SBK
PMM.SBK
TBKMM.SBK
TBKMM.SBK
ulinitbook
resources
&Utility
Edit &Page Script
&Utility
Edit &Book Script
&Utility
Edit &Object Script
&Utility
&Get Bounds of Selection
&Utility
&Style
Arial 14 Field
&Style
EditPageScript
EditBookScript
EditObjectScript
GetBoundsOfSelection
clear
oldSelect
split_groups
group
Wungroup
theobj
retval
objlist
Arial14Field
changeFieldFormat
Arial
changeFieldFormat
theObj
objlist
newSize
newFace
initBook
kernel
GlobalAlloc
GlobalLock
GlobalUnlock
GlobalFree
GetMyFlags
GetWinFlags
mycursor.dll
SetSpecialCursor
GetSpecialCursor
TBKWIN.DLL
xUnitsFromPixels
yUnitsFromPixels
PeekMessage
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
getSystemMetrics
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
yUnitsFromPixels
xUnitsFromPixels
clientarea_x_units
clientarea_y_units
clientarea_x
clientarea_y
bheight
bwidth
capHeight
height
width
buttoncolor
nonclickable
clickable
curstep
GetProcessor
GetMyFlags
retvalue
config
resources
GetProcessor
machine
author
reader
ulinitBook
gotomain
\mainmenu\mainmenu.tbk
PlayWave
type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
strOpen
theFile
PlayMidi
type sequencer alias midifile
tbkMCIchk
play midifile from 0 wait
tbkMCIchk
close midifile
tbkMCIchk
strOpen
theFile
PlayVideo
type AVIVideo alias video1 style popup parent
tbkMCIchk
tbkMCIPositionWindow
play video1 from 0 wait
tbkMCIchk
close video1
tbkMCIchk
eatClicks
video1
strOpen
thePlace
theFile
PlayAnimation
alias anim1 style popup
tbkMCIchk
anim1
tbkMCIPositionWindow
play anim1 wait
tbkMCIchk
close anim1
tbkMCIchk
strOpen
thePlace
theFile
alter
Plast
Pfirst
yieldApp
newBounds
coming
going
slice
leavepage
enterpage
mouseleave
SetSpecialCursor
mouseenter
SetSpecialCursor
cine4
empty
:PHYSSIZE
start
tbkMCIchk ("
\mmenter\me3.wav type waveaudio alias wavefile","",1,1)
Fplay
0 hold","",1,1)
yeildApp ()
close
enterpage
leavepage
enterpage
open \mmenter\me3.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 hold
tbkMCIchk
yeildApp
leavepage
close wavefile
tbkMCIchk
text1
pfirst
5415,1665,8910,1665
plast
5415,1665,8910,4245
Here are some examples of multimedia entertainment programs. Click each picture for more information.ures.res.
:PHYSSIZE
The Game-Heartter
SetSpecialCursor("Special2")
"labstart"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
labstart
The Labyrinth of Time
:PHYSSIZE
SetSpecialCursor("Special2")
"cinemaniastart"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cinemaniastart
:PHYSSIZE
Cinemania '94inemania
SetSpecialCursor("Special2")
"karaokestart"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
karaokestart
PC Karaoke
:PHYSSIZE
SetSpecialCursor("Special2")
"myststart"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
myststart
:PHYSSIZE
:PHYSSIZE
SetSpecialCursor("Special2")
"vo1"
"vo2"
tbkMCIchk ("close wavefile","",1,1)
\mmenter\me3.
# type waveaudio alias
Splay
0 hold","",1,1)
mouseLeave
mouseEnter
buttondown
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttondown
buttonup
close wavefile
tbkMCIchk
open \mmenter\me3.wav type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 hold
tbkMCIchk
:PHYSSIZE
Repeat
labstart
"cover"
4695,3660,4830,3810
enterpage
enterpage
cover
cover
:PHYSSIZE
text1
pfirst
5415,1665,8910,1665
plast
5415,1665,8910,4245
The Labyrinth of Time from Electronic Arts is an epic fantasy of time travel and adventure. In this fantasy game, your challenge is to overcome the power of Minos and destroy the labyrinth.
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"lab1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
speed
machine
:PHYSSIZE
SetSpecialCursor("Special2")
4machine
Zspeed
"cover"
pfirst
4695,3660,4830,3810
plast
-45,-240,9600,7185
alter
"lab1"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttonup
cover
cover
pfirst
cover
plast
alter
cover
speed
machine
:PHYSSIZE
text1
plast
1485,1665,5310,5715
pfirst
1485,1665,5310,1665
Click on a picture to start a self-running demo....
g /uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu#"0$$33333333333333333333333333333333333333333333333333333333SIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH33333333333333333333333333333333333333333333333333333333333333333333333333333333333333<Z<Z<Z<Z<Z<Z<ZZ<Z<Z<ZZ<Z<Z<Z<Z<Z<Z<ZZ<Z<Z<Z<Z3QHKOOOOOOOOOOOOOOOOOOOOOOOOOOHQ<ZZ<Z
<<3<<<<<Z<<<Z<ZHO@@@@@@@@@@OSQ<<<<<<<<Z<Z<<<<<3
g /uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu33333333333333333333333333333333333333333333ZZ333333333HIIIIIIIIIIIIIIIIIIIIIIIIIII
Computer generated entertainment programs will never be the same again. Multimedia has changed the ground rules of what traditionally has passed as entertainment software. With multimedia, the action will be faster, smoother, and more gripping. The sounds will be brighter, crisper, and more dynamic.
border
Qplast
-3450,1740,510,6645
Qpfirst
*C-10740,5460,75,5910
T o G
h"o G
8$o s
\&o G
<'o s
t)o G
D+o s
x,o G
H.o s
(/o G
v2o G
F4o s
&5o G
~6o G
*8o G
R;o s
2<o G
v=o G
V>o s
6?o G
^Bo s
HCXCplast
480,1740,4440,6645
pfirst
480,1740,4440,6645
dF:PHYSSIZE
J:PHYSSIZE
voice
vL:PHYSSIZE
SetSpecialCursor("Special2")
"vo1"
"vo2"
tbkMCIchk ("close wavefile","",1,1)
\mmenter\hellcab1.
( type waveaudio alias
Xplay
0 hold","",1,1)
mouseLeave
mouseEnter
buttondown
buttonup
mouseEnter
Special2
SetSpecialCursor
mouseLeave
SetSpecialCursor
buttondown
buttonup
close wavefile
tbkMCIchk
open \mmenter\hellcab1.wav type waveaudio alias wavefile